home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 2 / Tech Arsenal 2 (Arsenal Computer).iso / lan_nov / ptf445.exe / PSLAND.INI < prev    next >
Text File  |  1994-03-15  |  4KB  |  314 lines
  1. %!PS
  2.  
  3. /LM 21 def
  4. /TM -24 def
  5.  
  6. /BS   8 def
  7. /LF  10 def
  8. /FF  12 def
  9. /ESC 27 def
  10. /RS  30 def
  11.  
  12. /char 1 string def
  13.  
  14. /encoding850 StandardEncoding 256 array copy def
  15.  
  16. 0
  17. [ 16#07
  18.   /bullet
  19.   16#0F
  20.   /currency
  21.   16#14
  22.   /paragraph
  23.   /section
  24.   16#27
  25.   /quotesingle
  26.   16#2D
  27.   /minus
  28.   16#5E
  29.   /circumflex
  30.   16#60
  31.   /grave
  32.   16#7E
  33.   /tilde
  34.   /.notdef
  35. % 8-
  36.   /Ccedilla
  37.   /udieresis
  38.   /eacute
  39.   /acircumflex
  40.   /adieresis
  41.   /agrave
  42.   /aring
  43.   /ccedilla
  44.   /ecircumflex
  45.   /edieresis
  46.   /egrave
  47.   /idieresis
  48.   /icircumflex
  49.   /igrave
  50.   /Adieresis
  51.   /Aring
  52. % 9-
  53.   /Eacute
  54.   /ae
  55.   /AE
  56.   /ocircumflex
  57.   /odieresis
  58.   /ograve
  59.   /ucircumflex
  60.   /ugrave
  61.   /ydieresis
  62.   /Odieresis
  63.   /Udieresis
  64.   /oslash
  65.   /sterling
  66.   /Oslash
  67.   /multiply
  68.   /florin
  69. % A-
  70.   /aacute
  71.   /iacute
  72.   /oacute
  73.   /uacute
  74.   /ntilde
  75.   /Ntilde
  76.   /ordfeminine
  77.   /ordmasculine
  78.   /questiondown
  79.   /registered
  80.   /logicalnot
  81.   /onehalf
  82.   /onequarter
  83.   /exclamdown
  84.   /guillemotleft
  85.   /guillemotright
  86. % B-
  87.   /.notdef
  88.   /.notdef
  89.   /.notdef
  90.   /bar
  91.   /.notdef
  92.   /Aacute
  93.   /Acircumflex
  94.   /Agrave
  95.   /copyright
  96.   /.notdef
  97.   /.notdef
  98.   /.notdef
  99.   /.notdef
  100.   /cent
  101.   /yen
  102.   /.notdef
  103. % C-
  104.   /.notdef
  105.   /.notdef
  106.   /.notdef
  107.   /.notdef
  108.   /emdash
  109.   /.notdef
  110.   /atilde
  111.   /Atilde
  112.   /.notdef
  113.   /.notdef
  114.   /.notdef
  115.   /.notdef
  116.   /.notdef
  117.   /.notdef
  118.   /.notdef
  119.   /currency
  120. % D-
  121.   /eth
  122.   /Eth
  123.   /Ecircumflex
  124.   /Edieresis
  125.   /Egrave
  126.   /dotlessi
  127.   /Iacute
  128.   /Icircumflex
  129.   /Idieresis
  130.   16#DC
  131.   /bullet
  132.   /brokenbar
  133.   /Igrave
  134.   /.notdef
  135. % E-
  136.   /Oacute
  137.   /germandbls
  138.   /Ocircumflex
  139.   /Ograve
  140.   /otilde
  141.   /Otilde
  142.   /mu
  143.   /thorn
  144.   /Thorn
  145.   /Uacute
  146.   /Ucircumflex
  147.   /Ugrave
  148.   /yacute
  149.   /Yacute
  150.   /macron
  151.   /acute
  152. % F-
  153.   /endash
  154.   /plusminus
  155.   /ellipsis
  156.   /threequarters
  157.   /paragraph
  158.   /section
  159.   /divide
  160.   /cedilla
  161.   /ring
  162.   /dieresis
  163.   /periodcentered
  164.   /onesuperior
  165.   /threesuperior
  166.   /twosuperior
  167.   /bullet ]
  168.  
  169.   {
  170.   dup type /nametype eq
  171.     {
  172.     dup /Courier findfont /CharStrings get exch known not
  173.       {
  174.       pop /.notdef
  175.       }
  176.     if
  177.     encoding850 2 index 3 -1 roll put 1 add
  178.     }
  179.     {
  180.     exch pop
  181.     }
  182.   ifelse
  183.   }
  184. forall
  185. pop
  186.  
  187. /define850
  188.   {
  189.   findfont
  190.   begin
  191.     currentdict dup length dict
  192.     begin
  193.         {
  194.         1 index /FID ne
  195.           {
  196.           def
  197.           }
  198.           {
  199.           pop pop
  200.           }
  201.         ifelse
  202.         }
  203.       forall
  204.       /Encoding encoding850 def
  205.       dup /FontName exch def
  206.       currentdict
  207.     end
  208.   end
  209.   definefont
  210.   } def
  211.  
  212. /backspace
  213.   {
  214.   currentpoint exch
  215.   charwidth sub exch
  216.   moveto
  217.   } def
  218.  
  219. /carriagereturn
  220.   {
  221.   currentpoint exch pop
  222.   LM exch
  223.   moveto
  224.   } def
  225.  
  226. /linefeed
  227.   {
  228.   currentpoint linespacing sub
  229.   moveto
  230.   } def
  231.  
  232. /formfeed
  233.   {
  234.   showpage
  235.   /data false def
  236.   90 rotate
  237.   LM TM moveto
  238.   } def
  239.  
  240. /Courier850 /Courier define850 9.5 scalefont setfont
  241. /charwidth (X) stringwidth pop def
  242. /linespacing 12 def
  243. /data false def
  244. 90 rotate
  245. LM TM moveto
  246.  
  247.   {
  248.   currentfile read
  249.     {
  250.     dup RS eq
  251.       {
  252.       pop
  253.       carriagereturn
  254.       }
  255.       {
  256.       dup LF eq
  257.         {
  258.         pop
  259.         linefeed
  260.         }
  261.         {
  262.         dup FF eq
  263.           {
  264.           pop
  265.           formfeed
  266.           }
  267.           {
  268.           dup BS eq
  269.             {
  270.             pop
  271.             backspace
  272.             }
  273.             {
  274.             dup ESC eq
  275.               {
  276.               pop
  277.               currentfile read
  278.                 {
  279.                 32 sub
  280.                 /linespacing exch def
  281.                 }
  282.                 {
  283.                 data { formfeed } if
  284.                 exit
  285.                 }
  286.               ifelse
  287.               }
  288.               {
  289.               dup 32 ne
  290.                 {
  291.                 /data true def
  292.                 }
  293.               if
  294.               char 0 3 -1 roll put
  295.               char show
  296.               }
  297.             ifelse
  298.             }
  299.           ifelse
  300.           }
  301.         ifelse
  302.         }
  303.       ifelse
  304.       }
  305.     ifelse
  306.     }
  307.     {
  308.     data { formfeed } if
  309.     exit
  310.     }
  311.   ifelse
  312.   }
  313. loop
  314.